home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / voodoo / install < prev    next >
Text File  |  1996-02-22  |  20KB  |  549 lines
  1. ; $VER: Install_Voodoo 1.0 (13.10.95)
  2. ; Description: Installer script for Voodoo
  3.  
  4. (set cpu (database "cpu"))
  5. (set cpu020 (and (<> cpu "68000") (<> cpu "68010")))
  6. (set v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39))
  7.  
  8. (set vn (getversion "Voodoo"))
  9. (set vv (/ vn 65536))
  10. (set vr (- vn (* vv 65536)))
  11.  
  12. ; all strings used in this installer script
  13. (set #need39 "This program requires OS 3.0 or later to function.")
  14. (set #nohelp "No help available.")
  15. (set #welcome (cat "Voodoo is a multithreaded, graphic E-Mail reader for AmigaOS 3.0. Voodoo features a complete ClassAct GUI, an extensive ARexx interface, fully integrated MIME support, a built-in address book and simultaneous multi-folder access.\n\n"
  16.     (if (exists "REGISTER")
  17.         (cat "This is the demo version of Voodoo. Please refer to the documentation for information on the restrictions and instructions on how to register.")
  18.         (cat "Thank you for registering Voodoo. This advanced version called Serious Voodoo has many new features to make using E-Mail simpler and more fun.")
  19.     )
  20.     ("\n\nThis program will install the Voodoo E-Mail reader version %ld.%ld and the necessary ClassAct gadget classes on your system.\n" vv vr))
  21. )
  22. (set #destdir-prompt "Please select the directory where you want Voodoo installed.\n(If you do not accept the default, a directory 'Voodoo' will be created there.)")
  23. (set #destdir-help "A directory for Voodoo will be created here. By accepting the default directory, most of the files don't have to be copied.")
  24. (set #installing "Installing ")
  25. (set #copying-docs "Copying documentation")
  26. (set #languages-prompt "Which language catalogs do you want to install?")
  27. (set #languages-where "Where do you want to install the Catalogs directory?")
  28. (set #readme "Displaying the version notes readme...")
  29. (set #bye "In case you need help configuring or using Voodoo, pressing HELP will bring up the online documentation.\nI hope you will enjoy using Voodoo.\nPlease remember that Voodoo is shareware. If you like Voodoo, you should register it to support continued development.")
  30.  
  31. (set #contrib "In the 'Contrib' directory of the installation archive, you can find several utilities that could prove useful with Voodoo.\n\nNext you will have a chance to install some of these utilities.\n\nBefore deleting this directory after installation, please take a closer look at what else is available in the 'Contrib' dir.")
  32. (set #contrib-amipop "Would you like to install AmiPOP?\n\nIf you use a SLIP/PPP account and have not installed AmiPOP before, you will probably want to install it now.\n\nIf you do, this installation script will ask you some questions about the configuration next.")
  33. (set #amipop-stack "AmiPOP is available for both of the major TCP/IP stacks, AS225/Inet225 and AmiTCP. For which stack do you wish to install AmiPOP for?")
  34. (set #amipop-help "AmiPOP is a small utility for retrieving mail from a remote system with the POP protocol. It is mostly used on dial-up SLIP/PPP systems. If you have such a system, you have to run AmiPOP to get new mail.\n\nIt will remain in the background as a Commodity and download new mail to a spool file on your system every few minutes.\n\nVoodoo will read mail from this spool file and import it to its folders.")
  35. (set #amipop-where "Where would you like to install AmiPOP?\nIf you install it outside WBStartup, you will have to manually run it when connecting to Internet.")
  36. (set #amipop-host "What is your POP host address?\nIf you do not know the address of your POP host, ask your Internet provider.\nIt is likely to be something like 'mail.isp.com' or 'pop.isp.com'.")
  37. (set #amipop-account "What is your POP account name?\nThis is most likely the name of your shell account, if you have one, or perhaps the name of your machine, if you have a SLIP/PPP only connection.")
  38. (set #amipop-password "What is your POP password?\nYou can leave this empty if you would rather enter it when starting AmiPOP.")
  39. (set #amipop-spool "Where do you wish to put the AmiPOP spool file?\nAmiPOP will download mail to this file, where Voodoo can then read it from.\nYou must enter this path also to Voodoo configuration")
  40. (set #amipop-tooltype "Setting AmiPOP tooltypes...")
  41.  
  42. (set #contrib-sabot "Do you wish to install Sabot?\n\nSabot is a small utility that stays on the background and displays an icon on the Workbench reflecting the status of the mailbox.")
  43. (set #sabot-where "Where would you like to install Sabot?\nThe default is the same place as AmiPOP.")
  44. (set #sabot-icons "Sabot needs three icons for the images of its own AppIcon. Where do you want to keep these icons?")
  45.  
  46. (set #contrib-obtaingir "Would you like to install NewObtainGIRPort?\n\nThis small program patches the ObtainGIRPort() function of intuition.library to avoid deadlock situations in complex BOOPSI gadgets.")
  47. (set #obtaingir-startup "Adding NewObtainGIRPort to system startup files")
  48.  
  49. ; ---------------------------------------------------------------------------
  50.  
  51. ; ************* PLEASE COPY THIS PROCEDURE ALONG WITH THE STRINGS IT USES 
  52. ; ************* TO THE INSTALLER SCRIPT OF YOUR CLASSACT APPLICATION.
  53. ; ************* IT WILL TAKE CARE OF INSTALLING THE CLASSACT CLASSES YOU
  54. ; ************* PROVIDED WITH YOUR APPLICATION TO THE USER'S SYSTEM.
  55.  
  56. ; ClassAct installation procedure V 1.4 (23.12.95) by Osma Ahvenlampi
  57.  
  58. ; percentage of the size of included ClassAct classes versus the whole
  59. ; distribution (ie. total "complete" percentage after ClassAct is installed)
  60. (set classact-complete 50)
  61.  
  62. ; ClassAct installer scripts
  63. (set #classdest-prompt "Please select the directory where you want the ClassAct classes installed.\n(See help for details)")
  64. (set #classdest-help (cat "ClassAct is a GUI toolkit consisting of shared BOOPSI classes.\n\nThis player requires some of the ClassAct classes installed on your system. "
  65.     (if v39 (cat "OS 3.0 has a standard directory for BOOPSI classes, the SYS:Classes directory. It is recommended that you install ClassAct there.")
  66.             (cat "OS 2.0 does not have a standard place for disk resident BOOPSI classes. On OS 3.0 these classes are stored in the SYS:Classes directory. It is recommended that you create this directory and install ClassAct there.\nThis directory must be added in the LIBS: assign. This can be done by placing the command\nAssign >NIL: LIBS: SYS:Classes ADD\nto User-Startup. This installer will do this for you.")
  67.         )
  68.     )
  69. )
  70. (set #classes-020 "Do you want to use the OS 3.0, 020 optimised version of ClassAct?")
  71. (set #help-020 "Some ClassAct libraries have versions optimised for use on 020 or better equipped OS 3.0 or later machines. If your Amiga is such equipped, you should install these. The 68000/2.0 versions will also work, but are slightly slower.")
  72. (set #noclasses-message "The directory you selected for your ClassAct classes is not a part of the LIBS: assign.\n\nIt is necessary to add this assign so that the classes will be found properly.")
  73. (set #creating-dir "Creating directory ")
  74. (set #usbackup-prompt "User-Startup will now be backed up.")
  75. (set #usbackup-help "This installer will next make a modification in User-Startup. Before doing this the old User-Startup will be backed up to S:User-Startup.old")
  76. (set #adding-1 "Adding ")
  77. (set #adding-2 " to LIBS: assign\n")
  78. (set #adding-help "This is necessary so that the custom classes can be found.")
  79. (set #junod-button "It seems you have a late Commodore 'V42' button.gadget installed on your system.\n\nClassAct's button.gadget is far more capable than this gadget, and we recommend that you replace it. The ClassAct button.gadget is backwards compatible to the Commodore gadget. Do you wish to back up the Commodore gadget and replace it with the ClassAct version?")
  80. (set #junod-backed "The Commodore 'V42' button.gadget has been backed up with the name button.gadget.v42.\n\nThe ClassAct button.gadget will be installed in its place.")
  81. (set #junod-kept "The Commodore 'V42' button.gadget was not replaced with the more capable ClassAct version.\n\nPrograms depending on the availability of ClassAct-only features will be likely to work wrong.")
  82.  
  83. (procedure install-classact
  84. ; call this procedure to copy the classes included in the Classes directory
  85. ; in your distribution dir.
  86.     (if (exists "Classes") ; The archive contains a ClassAct library update.
  87.     (
  88.         (set comp-dest  (/ (* classact-complete 2) 10))
  89.         (set comp-libs  (/ (* classact-complete 3) 10))
  90.         (set comp-dirs  (/ (* classact-complete 4) 10))
  91.         (set comp-junod (/ (* classact-complete 5) 10))
  92.         (set comp-020   (/ (* classact-complete 6) 10))
  93.         (set comp-gad   (/ (* classact-complete 8) 10))
  94.         (set comp-im    (/ (* classact-complete 9) 10))
  95.     
  96.         ; has the user installed ClassAct in CLASSACT: ?
  97.         (set @classact-dest (getassign "CLASSACT" "A"))
  98.         (if (= @classact-dest "") (set @classact-dest "SYS:Classes"))
  99.         
  100.         ; is ClassAct already in SYS:Classes ?
  101.         (if (or (not (exists (tackon @classact-dest "Gadgets/layout.gadget") (noreq)))
  102.                 (= @user-level 2))
  103.             ; no, ask where it should be placed
  104.             (set @classact-dest
  105.                 (askdir
  106.                     (prompt #classdest-prompt)
  107.                     (help #classdest-help)
  108.                     (default @classact-dest)
  109.                     (newpath)
  110.                 )
  111.             )
  112.         )
  113.         
  114.         (complete comp-dest)
  115.         
  116.         (if (<> (run (cat "C/CheckAssign LIBS: " @classact-dest)) 0)
  117.             (
  118.                 (message #noclasses-message)
  119.                 (if (not (exists @classact-dest))
  120.                     (makedir @classact-dest (prompt (cat #creating-dir @classact-dest)))
  121.                 )
  122.                 (set @addassign (cat "Assign >NIL: LIBS: " @classact-dest " ADD\n"))
  123.                 (startup "CLASSACT"
  124.                     (command @addassign)
  125.                     (prompt (cat #adding-1 @classact-dest #adding-2))
  126.                     (help #adding-help)
  127.                 )
  128.                 (run (@addassign))
  129.             )
  130.         )
  131.         
  132.         (complete comp-libs)
  133.         
  134.         (set @classact-gadgets (tackon @classact-dest "Gadgets"))
  135.         (set @classact-images (tackon @classact-dest "Images"))
  136.         
  137.         (if (not (exists @classact-gadgets (noreq)))
  138.             (makedir @classact-images
  139.                 (prompt (cat #creating-dir @classact-gadgets))
  140.             )
  141.         )
  142.         
  143.         (if (not (exists @classact-images (noreq)))
  144.             (makedir @classact-images
  145.                 (prompt (cat #creating-dir @classact-images))
  146.             )
  147.         )
  148.         
  149.         (complete comp-dirs)
  150.         
  151.         (if (exists "SYS:Classes/Gadgets/button.gadget")
  152.             (if (< 40 (/ (getversion "SYS:Classes/Gadgets/button.gadget") 65536))
  153.                 (if (askbool (prompt #junod-button) (help @askbool-help) (default 1))
  154.                     (
  155.                         (rename "SYS:Classes/Gadgets/button.gadget" "SYS:Classes/Gadgets/button.gadget.v42")
  156.                         (message #junod-backed)
  157.                     )
  158.                     (message #junod-kept)
  159.                 )
  160.             )
  161.         )
  162.         
  163.         (complete comp-junod)
  164.         
  165.         (if (exists "Classes/Gadgets/layout.gadget.020")
  166.             (set classes-020 (askbool (prompt #classes-020) (help #help-020) (default (and cpu020 v39))))
  167.             (set classes-020 0)
  168.         )
  169.  
  170.         (complete comp-020)
  171.         
  172.         (foreach "Classes/Gadgets" "#?.gadget"
  173.             (
  174.                 (set thislib (tackon "Classes/Gadgets" @each-name))
  175.                 (if (and classes-020 (exists (cat thislib ".020")))
  176.                     (set thislib (cat thislib ".020"))
  177.                 )
  178.                 (copylib (source thislib)
  179.                     (dest @classact-gadgets)
  180.                     (newname @each-name)
  181.                     (prompt (cat #installing @each-name))
  182.                     (help #classdest-help)
  183.                     (optional "force" "askuser")
  184.                 )
  185.             )
  186.         )
  187.         
  188.         (complete comp-gad)
  189.         
  190.         (foreach "Classes/Images" "#?.image"
  191.             (
  192.                 (set thislib (tackon "Classes/Images" @each-name))
  193.                 (if (and classes-020 (exists (cat thislib ".020")))
  194.                     (set thislib (cat thislib ".020"))
  195.                 )
  196.                 (copylib (source thislib)
  197.                     (dest @classact-images)
  198.                     (newname @each-name)
  199.                     (prompt (cat #installing @each-name))
  200.                     (help #classdest-help)
  201.                     (optional "force" "askuser")
  202.                 )
  203.             )
  204.         )
  205.         
  206.         (complete comp-im)
  207.  
  208.         (foreach "Classes" "#?.class"
  209.             (
  210.                 (set thislib (tackon "Classes" @each-name))
  211.                 (if (and classes-020 (exists (cat thislib ".020")))
  212.                     (set thislib (cat thislib ".020"))
  213.                 )
  214.                 (copylib (source thislib)
  215.                     (dest @classact-dest)
  216.                     (newname @each-name)
  217.                     (prompt (cat #installing @each-name))
  218.                     (help #classdest-help)
  219.                     (optional "force" "askuser")
  220.                 )
  221.             )
  222.         )
  223.  
  224.         (complete classact-complete)
  225.     )
  226.     )
  227. )
  228.  
  229. ; ************** END OF CLASSACT INSTALL PROCEDURE. COPY THE BLOCK ABOVE
  230. ; ************** TO YOUR CLASSACT APPLICATION INSTALLER.
  231.  
  232. ; ---------------------------------------------------------------------------
  233.  
  234. (complete 0)
  235.  
  236. (if (not v39)
  237.     (abort #need39)
  238. )
  239.  
  240. (message #welcome)
  241. (welcome)
  242.  
  243. (set @source-dir (pathonly @icon))
  244.  
  245. (set defdir
  246.     (askdir
  247.         (prompt #destdir-prompt)
  248.         (help #destdir-help)
  249.         (default @source-dir)
  250.     )
  251. )
  252. (set @default-dest defdir)
  253.  
  254. (set nocopy (= @source-dir @default-dest))
  255.  
  256. (install-classact)
  257.  
  258. (if (not nocopy)
  259.     (
  260.     (set @default-dest (tackon @default-dest "Voodoo"))
  261.     
  262.     (set update-voodoo (exists @default-dest))
  263.     
  264.     (if (not update-voodoo)
  265.         (makedir @default-dest 
  266.             (prompt #creating-dir @default-dest) 
  267.             (infos)
  268.         )
  269.     )
  270.     
  271.     (complete 55)
  272.     
  273.     (copyfiles
  274.         (source "Voodoo")
  275.         (dest @default-dest)
  276.         (prompt #installing "Voodoo")
  277.         (infos)
  278.     )
  279.     (run (cat "C:SetDate " (tackon @default-dest "Voodoo")) (prompt #installing "Voodoo"))
  280.     
  281.     (complete 65)
  282.     
  283.     (set languages
  284.         (askoptions 
  285.             (choices "English" "Français" "Suomi" "Italiano" "Íslenska" "Greek" "Español")
  286.             (prompt #languages-prompt)
  287.             (help #askoptions-help)
  288.             (default 1)
  289.         )
  290.     )
  291.     
  292.     (if (bitand languages 65534)
  293.         (
  294.             (set catdir (tackon @default-dest "Catalogs"))
  295.             (if (not (exists catdir))
  296.                 (makedir catdir (prompt (cat #creating-dir catdir)))
  297.             )
  298.             (if (bitand languages 2)
  299.                 (
  300.                     (set lang "français")
  301.                     (copyfiles (source (tackon "Catalogs" lang)) (choices "Voodoo.catalog")
  302.                         (dest (tackon catdir lang))
  303.                     )
  304.                 )
  305.             )
  306.             (if (bitand languages 4)
  307.                 (
  308.                     (set lang "suomi")
  309.                     (copyfiles (source (tackon "Catalogs" lang)) (choices "Voodoo.catalog")
  310.                         (dest (tackon catdir lang))
  311.                     )
  312.                 )
  313.             )
  314.             (if (bitand languages 8)
  315.                 (
  316.                     (set lang "italiano")
  317.                     (copyfiles (source (tackon "Catalogs" lang)) (choices "Voodoo.catalog")
  318.                         (dest (tackon catdir lang))
  319.                     )
  320.                 )
  321.             )
  322.             (if (bitand languages 16)
  323.                 (
  324.                     (set lang "íslenska")
  325.                     (copyfiles (source (tackon "Catalogs" lang)) (choices "Voodoo.catalog")
  326.                         (dest (tackon catdir lang))
  327.                     )
  328.                 )
  329.             )
  330.             (if (bitand languages 32)
  331.                 (
  332.                     (set lang "greek")
  333.                     (copyfiles (source (tackon "Catalogs" lang)) (choices "Voodoo.catalog")
  334.                         (dest (tackon catdir lang))
  335.                     )
  336.                 )
  337.             )
  338.             (if (bitand languages 64)
  339.                 (
  340.                     (set lang "español")
  341.                     (copyfiles (source (tackon "Catalogs" lang)) (choices "Voodoo.catalog")
  342.                         (dest (tackon catdir lang))
  343.                     )
  344.                 )
  345.             )
  346.         )
  347.     )
  348.     
  349.     (complete 75)
  350.     
  351.     (copyfiles
  352.         (source "")
  353.         (choices "Voodoo.guide" "HISTORY" "README" "BUGS")
  354.         (dest @default-dest)
  355.         (prompt #copying-docs)
  356.         (infos)
  357.     )
  358.     
  359.     (if (exists "REGISTER")
  360.         (copyfiles
  361.             (source "REGISTER")
  362.             (dest @default-dest)
  363.             (prompt #copying-docs)
  364.             (infos)
  365.         )
  366.     )
  367.     )
  368.     (set update-voodoo (exists "SYS:WBStartup/AmiPOP"))
  369. )
  370.  
  371. (complete 83)
  372.  
  373. (if (= update-voodoo 0)
  374.     (
  375. ;        (set smtpmaildir (getenv "SMTPMAILDIR"))
  376. ;        (if (= smtpmaildir "") (set smtpmaildir (getenv "MAILDIR")))
  377. ;        (if (= smtpmaildir "") (set smtpmaildir @default-dest))
  378.         (set smtpmaildir @default-dest)
  379.         (if (and (exists "INBOX") (not nocopy))
  380.             (
  381.                 (set inbox-dir (tackon smtpmaildir "INBOX"))
  382.                 (makedir inbox-dir (prompt (cat #creating-dir inbox-dir)))
  383.                 (copyfiles
  384.                     (source "INBOX")
  385.                     (dest inbox-dir)
  386.                     (prompt #copying-welcome)
  387.                     (all)
  388.                 )
  389.             )
  390.         )
  391.         
  392.         (complete 86)
  393.         
  394.         (if (exists "Contrib")
  395.             (
  396.             
  397.             (message #contrib)
  398.             
  399.             (complete 87)
  400.             
  401.             (set amipopdest "SYS:WBStartup")
  402.             (if (askbool (prompt #contrib-amipop)
  403.                     (help #amipop-help)
  404.                     (default (not (exists (tackon amipopdest "AmiPOP"))))
  405.                 )
  406.                 (
  407.                     (complete 88)
  408.                     (if (= 0 (askchoice (prompt #amipop-stack) 
  409.                                 (help #amipop-help)
  410.                                 (choices "AS225" "AmiTCP")))
  411.                         (set amipopsource "Contrib/AmiPOP/AmiPOP")
  412.                         (set amipopsource "Contrib/AmiPOP/AmiPOP-AmiTCP")
  413.                     )
  414.                     (complete 89)
  415.                     (set amipopdest
  416.                         (askdir (prompt #amipop-where)
  417.                             (help #amipop-help)
  418.                             (default amipopdest)
  419.                         )
  420.                     )
  421.                     (complete 90)
  422.                     (copyfiles 
  423.                         (source amipopsource)
  424.                         (dest amipopdest)
  425.                         (newname "AmiPOP")
  426.                         (infos)
  427.                         (prompt (cat #installing "AmiPOP"))
  428.                     )
  429.                     (complete 91)
  430.                     (set amipop-host
  431.                         (askstring
  432.                             (prompt #amipop-host)
  433.                             (help #amipop-help)
  434.                         )
  435.                     )
  436.                     (complete 92)
  437.                     (set amipop-account
  438.                         (askstring
  439.                             (prompt #amipop-account)
  440.                             (help #amipop-help)
  441.                         )
  442.                     )
  443.                     (complete 93)
  444.                     (set amipop-password
  445.                         (askstring
  446.                             (prompt #amipop-password)
  447.                             (help #amipop-help)
  448.                         )
  449.                     )
  450.                     (complete 94)
  451.                     (set amipop-spool
  452.                         (askstring
  453.                             (prompt #amipop-spool)
  454.                             (help #amipop-help)
  455.                         )
  456.                     )
  457.                     (run (cat "SetEnv POPMAILBOX " amipop-spool) (safe))
  458.                     (if (> @user-level 0)
  459.                         (tooltype
  460.                             (prompt #amipop-tooltype)
  461.                             (dest (tackon amipopdest "AmiPOP"))
  462.                             (settooltype "POPHOST" amipop-host)
  463.                             (settooltype "USERNAME" amipop-account)
  464.                             (settooltype "MAILBOX" amipop-spool)
  465.                             (if (not (= amipop-password ""))
  466.                                 (
  467.                                     (settooltype "PASSWORD" amipop-password)
  468.                                     (settooltype "NOWINDOW")
  469.                                 )
  470.                             )
  471.                         )
  472.                     )
  473.                 )
  474.             )
  475.             
  476.             (complete 95)
  477.             
  478.             (set sabotdest amipopdest)
  479.             (if (askbool (prompt #contrib-sabot)
  480.                     (help @askbool-help)
  481.                     (default (not (exists (tackon sabotdest "Sabot"))))
  482.                 )
  483.                 (
  484.                     (complete 96)
  485.                     (if (> @user-level 1)
  486.                         (set sabotdest
  487.                             (askdir (prompt #sabot-where)
  488.                                 (help @askdir-help)
  489.                                 (default sabotdest)
  490.                             )
  491.                         )
  492.                     )
  493.                     (complete 97)
  494.                     (set iconsdest
  495.                         (askdir (prompt #sabot-icons)
  496.                             (help @askdir-help)
  497.                             (default "ENVARC:Sys")
  498.                         )
  499.                     )
  500.                     (complete 98)
  501.                     (copyfiles 
  502.                         (source "Contrib/Sabot/Sabot")
  503.                         (dest sabotdest)
  504.                         (infos)
  505.                         (prompt #installing "Sabot")
  506.                     )
  507.                     (copyfiles
  508.                         (source "Contrib/Sabot")
  509.                         (choices "New.info" "Old.info" "None.info")
  510.                         (dest iconsdest)
  511.                         (prompt #installing "Sabot")
  512.                     )
  513.                     (complete 99)
  514.                     (if (> @user-level 0)
  515.                         (tooltype
  516.                             (prompt #sabot-tooltype)
  517.                             (dest (tackon sabotdest "Sabot"))
  518.                             (settooltype "MAIL" (tackon iconsdest "New"))
  519.                             (settooltype "OLDMAIL" (tackon iconsdest "Old"))
  520.                             (settooltype "NOMAIL" (tackon iconsdest "None"))
  521.                             (settooltype "MAILBOX" amipop-spool)
  522.                             (settooltype "MAILCOMMAND" "\"rx 'address VOODOO GETMAIL'\"")
  523.                             (settooltype "CLICKCOMMAND" (cat "\"" (tackon @default-dest "Voodoo") "\""))
  524.                             (settooltype "DROPCOMMAND" (cat "\"" (tackon @default-dest "Voodoo") " FOLDER\""))
  525.                         )
  526.                     )
  527.                 )
  528.             )
  529.             (if (askbool (prompt #contrib-obtaingir)
  530.                     (help @askbool-help)
  531.                     (default 1)
  532.                 )
  533.                 (startup "NEWOBTAINGIRPORT"
  534.                     (command (cat "Run >NIL: " (tackon @default-dest "Contrib/NewObtainGIRPort/NewObtainGIRPort")))
  535.                     (prompt #obtaingir-startup)
  536.                     (help #nohelp)
  537.                 )
  538.             )
  539.             )
  540.         )
  541.     )
  542. )
  543.  
  544. (complete 100)
  545.  
  546. (run "run >NIL: SYS:Utilities/MultiView README" (prompt #readme))
  547.  
  548. (exit #bye)
  549.